Amiga Plus 2002 #11

home *** CD-ROM | disk | FTP | other *** search

/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / ncurses-5.3 / doc / html / ada / terminal_interface-curses-aux_ < prev next >

Wrap

Text File | 2002-10-27 | 11.6 KB | 131 lines

<HTML><HEAD><TITLE>terminal_interface-curses-aux.ads</TITLE></HEAD> <BODY> <HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-aux.ads </H1></DIV><HR> <PRE> ------------------------------------------------------------------------------ -- -- -- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding -- -- -- -- Terminal_Interface.Curses.Aux -- -- -- -- S P E C -- -- -- ------------------------------------------------------------------------------ -- Copyright (c) 1998 Free Software Foundation, Inc. -- -- -- -- Permission is hereby granted, free of charge, to any person obtaining a -- -- copy of this software and associated documentation files (the -- -- "Software"), to deal in the Software without restriction, including -- -- without limitation the rights to use, copy, modify, merge, publish, -- -- distribute, distribute with modifications, sublicense, and/or sell -- -- copies of the Software, and to permit persons to whom the Software is -- -- furnished to do so, subject to the following conditions: -- -- -- -- The above copyright notice and this permission notice shall be included -- -- in all copies or substantial portions of the Software. -- -- -- -- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -- -- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -- -- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -- -- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, -- -- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR -- -- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR -- -- THE USE OR OTHER DEALINGS IN THE SOFTWARE. -- -- -- -- Except as contained in this notice, the name(s) of the above copyright -- -- holders shall not be used in advertising or otherwise to promote the -- -- sale, use or other dealings in this Software without prior written -- -- authorization. -- ------------------------------------------------------------------------------ -- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996 -- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A> -- Version Control: -- @Revision: 1.14 @ -- Binding Version 01.00 ------------------------------------------------------------------------------ -- curses binding. -- This module is generated. Please don't change it manually! -- Run the generator instead. -- | with <A HREF="interfac__ads.htm#23_9">System</A>; with <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; with <A HREF="unchconv__ads.htm#22_10">Interfaces</A>.C.Strings; use Interfaces.C.Strings; with Unchecked_Conversion; package Terminal_Interface.Curses.Aux is pragma Preelaborate (Terminal_Interface.Curses.Aux); use type Interfaces.C.int; subtype <A NAME="57_12">C_Int</A> is <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; subtype <A NAME="58_12">C_Short</A> is <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.short; subtype <A NAME="59_12">C_Long_Int</A> is <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.long; subtype <A NAME="60_12">C_Size_T</A> is <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.size_t; subtype <A NAME="61_12">C_UInt</A> is <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.unsigned; subtype <A NAME="62_12">C_ULong</A> is <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.unsigned_long; subtype <A NAME="63_12">C_Char_Ptr</A> is Interfaces.C.Strings.chars_ptr; type <A NAME="64_12">C_Void_Ptr</A> is new <A HREF="terminal_interface-curses-aux__ads.htm#61_12">System</A>.Address; type <A NAME="65_12">C_Chtype</A> is new <A HREF="terminal_interface-curses-aux__ads.htm#61_12">C_ULong</A>; type C_AttrType is new C_ULong; -- This is how those constants are defined in ncurses. I see them also -- exactly like this in all ETI implementations I ever tested. So it -- could be that this is quite general, but please check with your curses. -- This is critical, because curses sometime mixes boolean returns with -- returning an error status. <A NAME="73_4">Curses_Ok</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := 0; Curses_Err : constant C_Int := -1; <A NAME="76_4">Curses_True</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Int</A> := 1; Curses_False : constant C_Int := 0; -- Eti_Error: type for error codes returned by the menu and form subsystem subtype Eti_Error is C_Int range -14 .. 0; <A NAME="82_4">E_Ok</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := 0; <A NAME="83_4">E_System_Error</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -1; <A NAME="84_4">E_Bad_Argument</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -2; <A NAME="85_4">E_Posted</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -3; <A NAME="86_4">E_Connected</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -4; <A NAME="87_4">E_Bad_State</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -5; <A NAME="88_4">E_No_Room</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -6; <A NAME="89_4">E_Not_Posted</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -7; <A NAME="90_4">E_Unknown_Command</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -8; <A NAME="91_4">E_No_Match</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -9; <A NAME="92_4">E_Not_Selectable</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -10; <A NAME="93_4">E_Not_Connected</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -11; <A NAME="94_4">E_Request_Denied</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -12; <A NAME="95_4">E_Invalid_Field</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#79_12">Eti_Error</A> := -13; E_Current : constant Eti_Error := -14; procedure Eti_Exception (Code : Eti_Error); -- Dispatch the error code and raise the appropriate exception -- -- -- Some helpers function Chtype_To_AttrChar is new Unchecked_Conversion (Source => <A HREF="terminal_interface-curses__ads.htm#352_9">C_Chtype</A>, <A NAME="105_13"> </A> Target => Attributed_Character); function AttrChar_To_Chtype is new Unchecked_Conversion (Source => <A HREF="terminal_interface-curses-aux__ads.htm#64_12">Attributed_Character</A>, Target => C_Chtype); function AttrChar_To_AttrType is new Unchecked_Conversion (Source => <A HREF="terminal_interface-curses-aux__ads.htm#65_12">Attributed_Character</A>, Target => C_AttrType); function AttrType_To_AttrChar is new Unchecked_Conversion (Source => <A HREF="terminal_interface-curses__ads.htm#352_9">C_AttrType</A>, Target => Attributed_Character); procedure Fill_String (<A NAME="118_27">Cp</A> : in chars_ptr; Str : out String); -- Fill the Str parameter with the string denoted by the chars_ptr -- C-Style string. function Fill_String (Cp : chars_ptr) return String; -- Same but as function. end Terminal_Interface.Curses.Aux; </PRE></BODY></HTML>